#use c:\perl\bin\perl.exe




open FILE,"$ARGV[0]";
print "open file $ARGV[0] successful.\n";
print "data stream as follow:-------------------------------\n";

#while(<FILE>){
#	print $_;
#}
@fileline = <FILE>;
print @fileline;

close FILE;
print "data stream operation over:--------------------------\n";
